home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n4.arc / GETSEG.ASM < prev    next >
Assembly Source File  |  1990-09-13  |  435b  |  22 lines
  1. ;********** GETSEG.ASM - retrieves the current DEF SEG setting in QuickBASIC
  2.  
  3. ;Copyright (c) 1990 Ethan Winer
  4.  
  5. ;Declare: DECLARE FUNCTION GetSeg%()
  6. ;Usage:   CurrentSeg = GetSeg%
  7.  
  8.  
  9. .Model Medium, Basic
  10. .Data
  11.     Extrn B$Seg:Word
  12.  
  13. .Code
  14.  
  15. GetSeg Proc
  16.  
  17.     Mov  AX,B$Seg           ;load the value currently stored in B$Seg
  18.     Ret                     ;return to BASIC with the function output in AX
  19.  
  20. GetSeg Endp
  21. End
  22.